00100		DIMENSION NA(40,200)
00200	1	TYPE 15
00300	15	FORMAT('1I FORGOT EVERYTHING.'/)
00400	 	J=0
00500	
00600	2 	J=J+1
00700	199	IC=0
00800		IQ=0
00900		IB=0
01000		IA=0
01100		IT=0
01200		DO 101 I=1,J
01300	101	NA(5,I)=0
01400	3	TYPE 4
01500	4	FORMAT('-ASK ME SOMETHING, OR TELL ME ANYTHING!'/)
01600	
01700	5	IF(J.GT.199)GO TO 1
01800	 	ACCEPT 6,(NA(I,J),I=11,40)
01900	6	FORMAT(30A1)
02000	
02100		IF(NA(11,J).EQ.'-')GO TO 1
02200		IF(NA(11,J).EQ.' '.AND.IC)GO TO 22
02300		IF(NA(11,J).EQ.' ')GO TO 3
02400		IF(NA(11,J).EQ.'+')GO TO 95
02500		IF(NA(11,J).EQ.'/')GO TO 200
02600		IF(NA(11,J).EQ.':')GO TO 201
02700		IF(NA(11,J).NE.'*')GO TO 59
02800		IF(.NOT.IC)GO TO 3
02900	  	J=J-1
03000	  	IF(IB)GO TO 99
03100	  	IF(IT.OR.IA)GO TO 79
03200		GO TO 47
03300	59	DO 7 I=11,40
03400	7	IF(NA(I+1,J).EQ.' '.AND.NA(I+2,J).EQ.' ')GO TO 8
03500		NA(1,J)=40
03600		GO TO 9
03700	200	J=J-1
03800	   	DO 202 I=1,40
03900	202	NA(I,J)=0
04000		GO TO 199
04100	201	J=J-1
04200		DO 210 I=1,J
04300	210	NA(5,I)=0
04400	   	IA=0
04500		IB=0
04600		IF(IQ)GO TO 205
04700		GO TO 80
04800	8	NA(1,J)=I
04900	
05000	9	NA(2,J)=-1
05100		IF(NA(NA(1,J),J).EQ.'?')NA(2,J)=0
05200		NA(3,J)=J
05300		NA(4,J)=0
05400		IF(IC)GO TO 44
05500		IF(NA(2,J))GO TO 2
05600	
05700		IC=-1
05800	
05900		DO 52 MB=J-1,1,-1
06000		DO 51 I=11,NA(1,J)
06100	  	IF(NA(I,J).NE.NA(I,MB))GO TO 52
06200	51	CONTINUE
06300	
06400		NA(3,J)=NA(3,MB)
06500		IQ=-1
06600	205	IT=-1
06700	   	MA=J
06800		IF(NA(4,MB).LT.1)GO TO 79
06900		I=NA(4,MB)
07000		GO TO 25
07100	79	MA=MA-1
07200		IF(MA.LT.1.AND.IT)GO TO 80
07300		IF(MA.LT.1)GO TO 40
07400	  	IF(NA(3,J).EQ.NA(3,MA).AND.NA(2,MA).AND..NOT.NA(5,MA))GO TO 34
07500		GO TO 79
07600	52	CONTINUE
07700	
07800	80	IT=0 
07900		NL=NA(1,J)-9
08000	18	M=J
08100	40	IA=0
08200	47	M=M-1
08300		IF(M.LT.1)GO TO 75
08400		IF(NA(2,M).AND.NA(5,M))GO TO 47
08500		IF(NA(1,M)-10.LT.NL)GO TO 47
08600		DO 72 I=NA(1,J)-1,11+NL,-1
08700		IF(NA(I,J).EQ.' ')GO TO 72
08800		DO 73 K=NA(1,M),11+NL,-1
08900		DO 74 L=0,NL
09000	  	IF(NA(I-L,J).NE.NA(K-L,M))GO TO 73
09100	74	CONTINUE
09200		NA(3,J)=NA(3,M)
09300		IF(.NOT.NA(2,M))GO TO 69
09400		I=M
09500		GO TO 25
09600	73	CONTINUE
09700	72	CONTINUE
09800		GO TO 47
09900	75	NL=NL-1
10000		IF(NL.LT.4)GO TO 99
10100		GO TO 18
10200	
10300	69	IA=-1
10400		MA=J
10500		IF(NA(4,M).LT.1.OR.NA(5,NA(4,M)))GO TO 79
10600		I=NA(4,M)
10700		GO TO 25
10800	
10900	34	I=MA
11000	25	NA(5,I)=-1
11100	  	TYPE 26,(NA(K,I),K=11,NA(1,I))
11200	26	FORMAT(1X30A1)
11300	128	TYPE 29
11400	29	FORMAT(/' IF I''M RIGHT,TYPE: <CR> .'/' IF I''M WRONG,TYPE:'
11500		1' ''*'' ,AND I''LL TRY AGAIN.'/' OR JUST TYPE IN THE ANSWER.'/)
11600		GO TO 28
11700	
11800	99	TYPE 27
11900	27	FORMAT(' I DON''T KNOW THE ANSWER, SO TYPE IT IN.'/)
12000		IB=-1
12100	
12200	28	J=J+1
12300		GO TO 5
12400	
12500	22	J=J-1
12600		IF(IB)GO TO 99
12700		IF(.NOT.IQ)GO TO 2
12800		NA(4,MB)=M
12900		IF(IT.OR.IA)NA(4,MB)=MA
13000		GO TO 199
13100	
13200	44	IF(IQ)GO TO 93
13300		NA(3,J-1)=J
13400		GO TO 2
13500	
13600	93	NA(3,J)=NA(3,MB)
13700		NA(4,MB)=J-1
13800		DO 94 K=1,40
13900	94	NA(K,J-1)=NA(K,J)
14000		NA(6,J)=0
14100		GO TO 199
14200	
14300	95	TYPE 37,J,IC,IQ,IT,IA,IB,MB,MA,M,NL
14400	37	FORMAT(3X'J'3X'IC'2X'IQ'2X'IT'2X'IA'2X'IB'2X'MB'
14500		1,2X'MA'2X' M'2X'NL'/1X10I4/)
14600		TYPE 88
14700	88	FORMAT(2X'LEN'2X'!!'1X'LIKE'1X'L2'1X'ANS'1X'PIC')
14800		DO 96 L=1,J
14900	96	TYPE 36,(NA(K,L),K=1,40)
15000	36	FORMAT(1X5I4,1XA5,2X4I1,2X30A1)
15100		GO TO 5
15200		END